home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 November / Pcwk1197.iso / LOTUS / Eng-ins / SMASTERS / APPROACH / DB2WWW.MPR / SCRIPT / ApproachDoc / WWW Assistant / Body / btnP2template.s (.txt) < prev    next >
Null Bytes Alternating  |  1997-01-09  |  2KB  |  38 lines
  1. '++LotusScript Development Environment:2:5:(Options):0:66
  2.  
  3. '++LotusScript Development Environment:2:5:(Forward):0:1
  4. Declare Sub Click(Source As Button, X As Long, Y As Long, Flags As Long)
  5. Declare Sub NewWinTitle
  6.  
  7. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8.  
  9. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10. Private Sub BindEvents(Byval Objectname_ As String)
  11.     Static Source As BUTTON
  12.     Set Source = Bind(Objectname_)
  13.     On Event Click From Source Call Click
  14. End Sub
  15.  
  16. '++LotusScript Development Environment:2:2:Click:1:12
  17. Sub Click(Source As Button, X As Long, Y As Long, Flags As Long)
  18.     On Error Resume Next
  19.     'Sendkeys "{tab}{tab}~~",0
  20.     
  21.     gCurPage = 2
  22.     
  23.     'CurrentApplication.visible = True
  24.     Set Currentwindow.Activeview = currentDocument.Web~ Background
  25.     CurrentDocument.activate
  26.     CurrentDocument.window.maximize
  27.     CurrentDocument.window.visible = True    
  28.     
  29.     Err = 0
  30. End Sub
  31. '++LotusScript Development Environment:2:2:NewWinTitle:1:8
  32. Sub NewWinTitle
  33.     'Rename the window title for the dialogue so that it has the title we want instead of the apr file name
  34.     Dim activeWin As Integer, winTitle As String
  35.     activeWin% = GetActiveWindow()
  36.     winTitle$ = ""
  37.     SetWindowTextA activeWin%, winTitle$
  38. End Sub